home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test5.amos / Test5.amosSourceCode
Encoding:
AMOS Source Code  |  1993-08-22  |  41 b   |  6 lines
  1. A=0
  2. Z=0
  3. While Z<16000000
  4. A=A+7
  5. Inc Z
  6. Wend